Celestin Apprentice 4/Apprentice-Release4.iso/Utilities/Programming/MT2ToolKit 1.0b1/Trivial/Example/test ƒ/test.p

Text File | 1995-10-08 | 12.1 KB | 522 lines | [TEXT/MPS ]

{**********************************************************************
            WARNING!
            This source had been generated by
            beta version of the Trivial MPW Tool.
            Be sure to ask author about improved version of Trivial
            (other MPW tools&scripts are also available) :
                            Michael I Trofimov,
                            Internet: [e-mail]
            (Any comments & suggestions will be highly appreciated.)
**********************************************************************}
{%% Generation option: -h}
program test;
{ CONST Version  = '1.0';   For 'vers' resource}
 USES Memory,Quickdraw,Events,Desk,ToolUtils,Windows,Menus,Dialogs
{%% >> add necessary units here <<}
;
{
,ActionAtomIntf,ADSP,AEObjects,AEPackObject,AERegistry,AIFF,Aliases,AppleEvents,AppleTalk
,Balloons
,CommResources,Components,Connections,ConnectionTools,Controls,CRMSerialDevices,CTBUtilities
,CursorCtl
,DatabaseAccess,DeskBus,Devices,DisAsmLookup,DiskInit,Disks
,Editions,ENET,EPPC,ErrMgr,Errors
,Files,FileTransfers,FileTransferTools,Finder,FixMath,Folders,Fonts
,GestaltEqu,Graf3D
,HyperXCmd
,Icons,ImageCodec,ImageCompression,IntEnv
,Language,Lists
,MacPrint,MediaHandlers,Memory,MemTypes,MIDI,Movies,MoviesFormat
,Notification
,ObjIntf,OSEvents,OSIntf,OSUtils
,Packages,PackIntf,PaletteMgr,Palettes,PasLibIntf,Perf,Picker,PickerIntf,PictUtil
,Power,PPCToolBox,Printing,PrintTraps,Processes
,QDOffscreen,QuickTimeComponents
,Resources,Retrace,ROMDefs,RTLib
,SANE,Scrap,Script,SCSI,SCSIIntf,SegLoad,Serial,ShutDown,Signal,Slots,Sound,SoundInput
,StandardFile,Start,Strings,SysEqu
,Terminals,TerminalTools,TextEdit,Timer,ToolIntf,Traps,Types
,Unmangler
,Video,VideoIntf
}

 CONST
  CNTLID130 = 130; {%%?}
  CNTLID129 = 129; {%%?}
  NewWindowWINDID = 128; { WIND resource : New Window }
  FileMENUID = 257; { MENU resource : File }
  NewItem =  1; { "New" }
  OpenItem =  2; { "Open…" }
  CloseItem =  3; { "Close" }
  SaveItem =  5; { "Save" }
  SaveasItem =  6; { "Save as…" }
  PageSetupItem =  8; { "Page Setup…" }
  PrintItem =  9; { "Print…" }
  QuitItem = 11; { "Quit" }
  EditMENUID = 258; { MENU resource : Edit }
  UndoItem =  1; { "Undo" }
  CutItem =  3; { "Cut" }
  CopyItem =  4; { "Copy" }
  PasteItem =  5; { "Paste" }
  ClearItem =  6; { "Clear" }
  SelectAllItem =  7; { "Select All" }
  AppleMENUID = 256; { MENU resource : Apple }
  AbouttestEditItem =  1; { "About testEdit…" }
  MBARID = 128;
  D128OkItem = 1; { Ok }
  D128CancelItem = 2; { Cancel }
  D128Item3 = 3; {  }
  D128Item4 = 4; {  }
  D128Item5 = 5; {  }
  D128DoitItem = 6; { Do it }
  D128HiItem = 7; { Hi }
  D128LoItem = 8; { Lo }
  D128PictureItem9 = 9; {  }
  D128IconItem10 = 10; {  }
  D128Item11 = 11; {  }
  D128AnyTextItem = 12; { Any Text }
  D129OkItem = 1; { Ok }
  D129CancelItem = 2; { Cancel }
  D129UserItemItem3 = 3; {  }
  D129PleaseselectfilefromlistItem = 4; { Please, select file from list. }
  D130OkItem = 1; { Ok }
  D130TextinalertboxItem = 2; { Text in alert box }
  a1stDialogDLOGID = 128; { DLOG resource : 1st Dialog }
  a2ndDialogDLOGID = 129; { DLOG resource : 2nd Dialog }
  ICONID128 = 128; {%%?}
  PICTID128 = 128; {%%?}
  MyalertboxALRTID = 130; { ALRT resource : My alert box }

{%% Generation option: -i}

 PROCEDURE  DoNewItem;
  begin { DoNewItem }

  end; { DoNewItem }

 PROCEDURE  DoOpenItem;
  begin { DoOpenItem }

  end; { DoOpenItem }

 PROCEDURE  DoCloseItem;
  begin { DoCloseItem }

  end; { DoCloseItem }

 PROCEDURE  DoSaveItem;
  begin { DoSaveItem }

  end; { DoSaveItem }

 PROCEDURE  DoSaveasItem;
  begin { DoSaveasItem }

  end; { DoSaveasItem }

 PROCEDURE  DoPageSetupItem;
  begin { DoPageSetupItem }

  end; { DoPageSetupItem }

 PROCEDURE  DoPrintItem;
  begin { DoPrintItem }

  end; { DoPrintItem }

 PROCEDURE  DoQuitItem;
  begin { DoQuitItem }

  end; { DoQuitItem }

 PROCEDURE  DoUndoItem;
  begin { DoUndoItem }

  end; { DoUndoItem }

 PROCEDURE  DoCutItem;
  begin { DoCutItem }

  end; { DoCutItem }

 PROCEDURE  DoCopyItem;
  begin { DoCopyItem }

  end; { DoCopyItem }

 PROCEDURE  DoPasteItem;
  begin { DoPasteItem }

  end; { DoPasteItem }

 PROCEDURE  DoClearItem;
  begin { DoClearItem }

  end; { DoClearItem }

 PROCEDURE  DoSelectAllItem;
  begin { DoSelectAllItem }

  end; { DoSelectAllItem }

 PROCEDURE  DoAbouttestEditItem;
  begin { DoAbouttestEditItem }

  end; { DoAbouttestEditItem }

 PROCEDURE  DoD128OkItem;
  begin { DoD128OkItem }

  end; { DoD128OkItem }

 PROCEDURE  DoD128CancelItem;
  begin { DoD128CancelItem }

  end; { DoD128CancelItem }

 PROCEDURE  DoD128Item3;
  begin { DoD128Item3 }

  end; { DoD128Item3 }

 PROCEDURE  DoD128Item4;
  begin { DoD128Item4 }

  end; { DoD128Item4 }

 PROCEDURE  DoD128Item5;
  begin { DoD128Item5 }

  end; { DoD128Item5 }

 PROCEDURE  DoD128DoitItem;
  begin { DoD128DoitItem }

  end; { DoD128DoitItem }

 PROCEDURE  DoD128HiItem;
  begin { DoD128HiItem }

  end; { DoD128HiItem }

 PROCEDURE  DoD128LoItem;
  begin { DoD128LoItem }

  end; { DoD128LoItem }

 PROCEDURE  DoD128PictureItem9;
  begin { DoD128PictureItem9 }

  end; { DoD128PictureItem9 }

 PROCEDURE  DoD128IconItem10;
  begin { DoD128IconItem10 }

  end; { DoD128IconItem10 }

 PROCEDURE  DoD128Item11;
  begin { DoD128Item11 }

  end; { DoD128Item11 }

 PROCEDURE  DoD128AnyTextItem;
  begin { DoD128AnyTextItem }

  end; { DoD128AnyTextItem }

 PROCEDURE  DoD129OkItem;
  begin { DoD129OkItem }

  end; { DoD129OkItem }

 PROCEDURE  DoD129CancelItem;
  begin { DoD129CancelItem }

  end; { DoD129CancelItem }

 PROCEDURE  DoD129UserItemItem3;
  begin { DoD129UserItemItem3 }

  end; { DoD129UserItemItem3 }

 PROCEDURE  DoD129PleaseselectfilefromlistItem;
  begin { DoD129PleaseselectfilefromlistItem }

  end; { DoD129PleaseselectfilefromlistItem }

 PROCEDURE  DoD130OkItem;
  begin { DoD130OkItem }

  end; { DoD130OkItem }

 PROCEDURE  DoD130TextinalertboxItem;
  begin { DoD130TextinalertboxItem }

  end; { DoD130TextinalertboxItem }


{%% Generation option: -w}

 PROCEDURE  DoNewWindow (var window : WindowPtr);
  begin {DoNewWindow}

   window := nil;
   window := GetNewWindow (NewWindowWINDID,nil,WindowPtr(-1)); {%%? >> GetNewCWindow << }
 end; {DoNewWindow}

{%% Generation options: -a -d}

 PROCEDURE  DoD128;
 VAR
  itemHit : integer;
  DialogW : DialogPtr;
  begin { DoD128 }

   DialogW := GetNewDialog (a1stDialogDLOGID,nil, pointer (-1));
   REPEAT
    ModalDialog (nil, itemHit); {%% >> Change it for modless dialog <<}
    case itemHit of
      D128OkItem : DoD128OkItem;
      D128CancelItem : DoD128CancelItem;
      D128Item3 : DoD128Item3;
      D128Item4 : DoD128Item4;
      D128Item5 : DoD128Item5;
      D128DoitItem : DoD128DoitItem;
      D128HiItem : DoD128HiItem;
      D128LoItem : DoD128LoItem;
      D128PictureItem9 : DoD128PictureItem9;
      D128IconItem10 : DoD128IconItem10;
      D128Item11 : DoD128Item11;
      D128AnyTextItem : DoD128AnyTextItem;
     end; {case}
   UNTIL itemHit = D128OkItem; {%%?}
   DisposeDialog (DialogW);
 end; { DoD128 }

 PROCEDURE  DoD129;
 VAR
  itemHit : integer;
  DialogW : DialogPtr;
  begin { DoD129 }

   DialogW := GetNewDialog (a2ndDialogDLOGID,nil, pointer (-1));
   REPEAT
    ModalDialog (nil, itemHit); {%% >> Change it for modless dialog <<}
    case itemHit of
      D129OkItem : DoD129OkItem;
      D129CancelItem : DoD129CancelItem;
      D129UserItemItem3 : DoD129UserItemItem3;
      D129PleaseselectfilefromlistItem : DoD129PleaseselectfilefromlistItem;
     end; {case}
   UNTIL itemHit = D129OkItem; {%%?}
   DisposeDialog (DialogW);
 end; { DoD129 }

 PROCEDURE  DoD130;
 VAR
  itemHit : integer;
  begin { DoD130 }

   itemHit := Alert (MyalertboxALRTID, nil);
    case itemHit of
      D130OkItem : DoD130OkItem;
      D130TextinalertboxItem : DoD130TextinalertboxItem;
     end; {case}
 end; { DoD130 }


{%% Generation option: -m}

PROCEDURE DoMenuCommand(event: EventRecord; var quit : Boolean);

VAR
  menuResult: longint;
  menu,mitem: integer;

BEGIN
  menuResult:=MenuSelect(event.where);
  menu:=HiWord(menuResult);
  mitem:=LoWord(menuResult);

  CASE menu OF
  FileMENUID : case mitem of
      NewItem : DoNewItem;
      OpenItem : DoOpenItem;
      CloseItem : DoCloseItem;
      SaveItem : DoSaveItem;
      SaveasItem : DoSaveasItem;
      PageSetupItem : DoPageSetupItem;
      PrintItem : DoPrintItem;
      QuitItem : DoQuitItem;
     end; {case}
  EditMENUID : case mitem of
      UndoItem : DoUndoItem;
      CutItem : DoCutItem;
      CopyItem : DoCopyItem;
      PasteItem : DoPasteItem;
      ClearItem : DoClearItem;
      SelectAllItem : DoSelectAllItem;
     end; {case}
  AppleMENUID : case mitem of
      AbouttestEditItem : DoAbouttestEditItem;
     end; {case}
     end; {case}
 end; { DoDoMenuCommand }


{%% Generation option: -m}

PROCEDURE DoMakeMenus;
    var
        menuBar: Handle;

    BEGIN
      menuBar:=GetNewMBar(MBARID); {read menus and menu bar}

      IF menuBar<>NIL
        THEN
          BEGIN
            SetMenuBar(menuBar); {insert menus into the current menu list}
            DisposHandle(menuBar);
            AddResMenu(GetMHandle(  AppleMENUID),'DRVR'); {add desktop items in Apple Menu
                                                   Items folder to Apple menu}

            {%% >> adjust items and enabled state of menus <<}

            DrawMenuBar; {draw the menu bar}

          END;
    END; {DoMakeMenus}

{%% Generation option: -l}

  PROCEDURE DoOSEvent(event: EventRecord; VAR cursorRgn: RgnHandle);
  {Handling operating-system events}

    VAR
      window: windowPtr;
      activate: boolean;

    BEGIN
      window:=FrontWindow;
      CASE BSR(event.message,24) OF
       mouseMovedMessage:

               {%% >> Adjust cursor <<};

        suspendResumeMessage:
          BEGIN
            activate:=(BAnd(event.message,resumeFlag)<>0);

           {%% >> activate appl. window <<};

          END;
        OTHERWISE;
      END;
    END; {DoOSEvent}

PROCEDURE DoMouseDown (event: EventRecord; var quit : Boolean);
    VAR
     part         : integer;
     aWindow     : WindowPtr;

    BEGIN
      part:=FindWindow(event.where,aWindow);
      CASE part OF
        inMenuBar:      DoMenuCommand(event,quit);
        InSysWindow:     SystemClick(event,aWindow);

        inDrag:         {%% >> <<};
        inGoAway:         {%% >> <<};
        inGrow:          {%% >> <<};

        inZoomIn,
        inZoomOut:         {%% >> handle mouse down in zoombox region <<};

        inContent:        {%% >> <<};
      END; {case part of}
    END; {DoMouseDown}

  PROCEDURE MainLoop;

    CONST
      kReturnKey = $0D;
      kEnterKey = $03;
      kEscKey = 27;


    VAR
      key: Char;
      quit,gotEvent,activate : Boolean;
      event: EventRecord;
      cursorRgn: RgnHandle;

    BEGIN
      cursorRgn:=NewRgn;
      quit:=false;
      REPEAT
        gotEvent:=WaitNextEvent(everyEvent,event,15,cursorRgn);
        IF gotEvent
          THEN
            CASE event.what OF
              osEvt: DoOSEvent(event,cursorRgn);
              activateEvt:
                BEGIN
                  activate:=BAnd(event.modifiers,activeFlag)<>0;
                          {%% >> <<}
                END;

              updateEvt:     {%% >> <<};
              mouseUp:         {%% >> <<};

              mouseDown: DoMouseDown (event,quit);

              keyDown,autoKey:
                BEGIN
                  key:=chr(BAnd(event.message,charCodeMask));
                  IF (BAnd(event.modifiers,cmdKey)<>0)
                    THEN {command key down}
                     {%% >> <<}
                    ELSE IF key IN [chr(kReturnKey),chr(kEnterKey)]
                      THEN {return or enter keys were pressed}
                         {%% >> <<}
                      ELSE IF (key=chr(kEscKey))
                        THEN {esc key was pressed}
                          BEGIN
                           {%% >> <<}
                          END
                         ELSE
                          {%% >> <<};
                 END;
              diskEvt:              {%% >> <<};
              nullEvent:         {%% >> <<};
            END; {case}
      UNTIL quit;
      DisposeRgn(cursorRgn);
    END; {MainLoop}

  PROCEDURE Init;
    BEGIN
      MaxApplZone;
      MoreMasters;
      MoreMasters;
      MoreMasters;
      MoreMasters;
      MoreMasters;
      MoreMasters;

      InitGraf(@thePort);
      {InitFonts;}                     {%%?}
InitWindows; InitMenus; InitDialogs(NIL); DoMakeMenus;
      {TEInit;}                        {%%?}
      InitCursor;                     {%%?}

      {%% >> add another initialization here <<}
    END; {Init}

BEGIN {program body}
 Init;
 MainLoop;
END.